perm filename ZIPPS[CMS,LCS]1 blob
sn#093946 filedate 1974-03-27 generic text, type T, neo UTF8
00100 COMPILE;
00200 INSTRUMENT ZUZZ;
00300 OSCIL(P4,MAG/P2,P5);
00400 OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
00500 OSCIL(U1,MAG*P3+U2,P6);
00600 OUTA←OUTA+U3; END;
00700 INSTRUMENT WUZZ;
00800 OSCIL(P4,MAG/P2,P5);
00900 OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
01000 OSCIL(U1,MAG*P3+U2,P6);
01100 OUTA←OUTA+U3; END;
01200 INSTRUMENT GUZZ;
01300 OSCIL(P4,MAG/P2,P5);
01400 OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
01500 OSCIL(U1,MAG*P3+U2,P6);
01600 OUTA←OUTA+U3; END;
01700 INSTRUMENT BUZZ;
01800 OSCIL(P4,MAG/P2,P5);
01900 OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
02000 OSCIL(U1,MAG*P3+U2,P6);
02100 OUTA←OUTA+U3; END;
02200 INSTRUMENT NUZZ;
02300 OSCIL(P4,MAG/P2,P5);
02400 OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
02500 OSCIL(U1,MAG*P3+U2,P6);
02600 OUTA←OUTA+U3; END;
02700 INSTRUMENT MUZZ;
02800 OSCIL(P4,MAG/P2,P5);
02900 OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
03000 OSCIL(U1,MAG*P3+U2,P6);
03100 OUTA←OUTA+U3; END;
03200 INSTRUMENT KUZZ;
03300 OSCIL(P4,MAG/P3,P5);
03400 OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
03500 OSCIL(U1,MAG*P3+U2,P6);
03600 OUTA←OUTA+U3; END;
03700 INSTRUMENT JUZZ;
03800 OSCIL(P4,MAG/P3,P5);
03900 OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
04000 OSCIL(U1,MAG*P3+U2,P6);
04100 OUTA←OUTA+U3; END;
04200 FINISH;